perm filename SAIL.SRC[10X,AIL] blob
sn#095806 filedate 1974-04-06 generic text, type T, neo UTF8
1) SAIL vs. 2) SAIL[S,AIL] SRCCOM 04-06-74 13:26 PAGES 1,1
******** SAIL **** PAGE 1
1) COMMENT ⊗ VALID 00046 PAGES VERSION 17-1(42)
1) RECORD PAGE DESCRIPTION
1) 00001 00001
1) 00005 00002 HISTORY
1) 00013 00003
1) 00014 00004 Command File Descriptions
1) 00016 00005 Titles, Switch Settings
1) 00018 00006 HISTORY OF STUFF THAT USED TO BE IN HEAD
1) 00022 00007 DSCR EXCHOP
1) 00023 00008 DSCR LODBLK (TYPE,TYP1,NAME,NAME1,COUNT,COUNT1,RELOC)
1) 00026 00009 MACROS FOR MANIPULATING SEMBLKS (SEE SAIL DATA DESCRIPTIONS)
1) 00028 00010 MACROS FOR MANIPULATING SEMANTICS, CALLING GENERATOR ROUTINES,
1) 00032 00011 Q-STACK HANDLERS
1) 00036 00012 Sail ACs, File Indices
1) 00038 00013 Sail Bits
1) 00046 00014 Externals, Data Allocation
1) 00048 00015 ZERODATA (MAIN-SEMANTICS POINTERS)
1) 00057 00016 II. SEMANTICS VARIABLES
1) 00068 00017 ZERODATA(DISPLAY REGISTER HANDLING VARIABLES)
1) 00070 00018 ZERODATA (MAIN-SCANNER VARIABLES)
1) 00074 00019 ZERODATA (MAIN-PARSER VARIABLES)
1) 00084 00020 ZERODATA (MAIN-SOURCE AND LISTING FILE VARIABLES)
1) 00088 00021 DATA (SWITCHED VARIABLES)
1) 00097 00022 ZERODATA (GLOBAL STATE VARIABLES)
1) 00100 00023 ZERODATA (COUNTER SYSTEM VARIABLES)
1) 00102 00024 DATA (RANDOM GLOBAL THINGS)
1) 00104 00025 SLS VARIABLES
1) 00105 00026 DATA (INITIAL PROC DESC SEMBLKS)
1) 00106 00027 Executive and Initialization
1) 00108 00028 Start, Ddtkil -- Once-only code to zap RAID, symbols
1) 00112 00029 Larger, Sail -- Execution Starts Here
1) 00115 00030
1) 00118 00031 Morfiles -- Execution Returns Here Each New Command Line
1) 00125 00032
1) 00130 00033 Salnit -- Storage Initialization, Etc.
1) 00139 00034
1) 00140 00035 Comnd, aux. routs -- Command Scanner
1) 00145 00036 Opnup -- Open Files
1) 00147 00037 Comnd Itself
1) 00156 00038 Unswt -- End of Switched-to-File
1) 00158 00039 Filnam
1) 00165 00040 Delim -- Handle Switches
1) 00168 00041
1) 00171 00042
1) 00174 00043
1) 00176 00044 Word
1) 00179 00045 Tyi
1) SAIL vs. 2) SAIL[S,AIL] SRCCOM 04-06-74 13:26 PAGES 1,1
1) 00183 00046
1) 00184 ENDMK
1) ⊗;
*** SAIL[S,AIL] *** PAGE 1
2) COMMENT ⊗ VALID 00046 PAGES VERSION 17-1(41)
2) RECORD PAGE DESCRIPTION
2) 00001 00001
2) 00011 00002 HISTORY
2) 00019 00003 COMMENT
2) 00020 00004 COMMENT Command File Descriptions
2) 00022 00005 Titles, Switch Settings
2) 00024 00006 COMMENT HISTORY OF STUFF THAT USED TO BE IN HEAD
2) 00028 00007 DSCR EXCHOP
2) 00029 00008 DSCR LODBLK (TYPE,TYP1,NAME,NAME1,COUNT,COUNT1,RELOC)
2) 00032 00009 MACROS FOR MANIPULATING SEMBLKS (SEE SAIL DATA DESCRIPTIONS)
2) 00034 00010 MACROS FOR MANIPULATING SEMANTICS, CALLING GENERATOR ROUTINES,
2) 00038 00011 Q-STACK HANDLERS
2) 00042 00012 SUBTTL Sail ACs, File Indices
2) 00044 00013 SUBTTL Sail Bits
2) 00052 00014 Externals, Data Allocation
2) 00054 00015 ZERODATA (MAIN-SEMANTICS POINTERS)
2) 00063 00016 II. SEMANTICS VARIABLES
2) 00074 00017 ZERODATA(DISPLAY REGISTER HANDLING VARIABLES)
2) 00076 00018 ZERODATA (MAIN-SCANNER VARIABLES)
2) 00080 00019 ZERODATA (MAIN-PARSER VARIABLES)
2) 00090 00020 ZERODATA (MAIN-SOURCE AND LISTING FILE VARIABLES)
2) 00094 00021 DATA (SWITCHED VARIABLES)
2) 00103 00022 ZERODATA (GLOBAL STATE VARIABLES)
2) 00106 00023 ZERODATA (COUNTER SYSTEM VARIABLES)
2) 00108 00024 DATA (RANDOM GLOBAL THINGS)
2) 00110 00025 SLS VARIABLES
2) 00111 00026 DATA (INITIAL PROC DESC SEMBLKS)
2) 00112 00027 SUBTTL Executive and Initialization
2) 00114 00028 COMMENT Start, Ddtkil -- Once-only code to zap RAID, symbols
2) 00118 00029 Larger, Sail -- Execution Starts Here
2) 00122 00030
2) 00125 00031 Morfiles -- Execution Returns Here Each New Command Line
2) 00133 00032
2) 00137 00033 COMMENT Salnit -- Storage Initialization, Etc.
2) 00146 00034
2) 00147 00035 SUBTTL Comnd, aux. routs -- Command Scanner
2) 00152 00036 COMMENT Opnup -- Open Files
2) 00154 00037 COMMENT Comnd Itself
2) 00163 00038 COMMENT Unswt -- End of Switched-to-File
2) 00165 00039 COMMENT Filnam
2) 00172 00040 COMMENT Delim -- Handle Switches
2) 00175 00041
2) 00178 00042
1) SAIL vs. 2) SAIL[S,AIL] SRCCOM 04-06-74 13:26 PAGES 1,1
2) 00181 00043
2) 00183 00044 COMMENT Word
2) 00186 00045 Tyi
2) 00190 00046
2) 00191 ENDMK
2) ⊗;
******** SAIL **** PAGE 2
1) 031 102100000052 ⊗;
1) DEFINE .VERSION <102100000052>
1) COMMENT ⊗
1) VERSION 17-1(42) 4-6-74 BY RLS TENEX FIX TO PARC LOADER INTERFACE
1) VERSION 17-1(41) 3-25-74 BY JRL WE NOW USE LOADER 54 BLOCK CODES (LIBRARIES, LOAD MODULES)
*** SAIL[S,AIL] *** PAGE 2
2) 031 102100000051 ⊗;
2) DEFINE .VERSION <102100000051>
2) COMMENT ⊗
2) VERSION 17-1(41) 3-25-74 BY JRL WE NOW USE LOADER 54 BLOCK CODES (LIBRARIES, LOAD MODULES)
******** SAIL **** PAGE 32
1) SETO A,
1) JSYS CLOSF ;CLOSE ALL FILES
1) JFCL ;ERROR RETURN
1) IMSSS <
1) SETO A,
*** SAIL[S,AIL] *** PAGE 32
2) IMSSS<
2) SETO A,
******** SAIL **** PAGE 32
1) ZERODATA
1) CCLLOD: BLOCK 5
1) ENDDATA
1) JSYS GJINF ;GET THE JOB NUMBER
1) MOVEM C,B ;SAVE THE JOB NUMBER IN B
1) HRROI A,CCLLOD
1) MOVE C,[XWD 140003,12] ;DECIMAL, FIELD LENGTH 3, LEADING ZEROS
1) JSYS NOUT
1) JFCL
1) MOVEM A,B ;DESTINATION BP
1) HRROI A,[ASCIZ/LOA.TMP/]
1) SETZ C, ;COPY UNTIL NULL BYTE
1) JSYS SIN
1) MOVSI A,400001 ;WRITING, BP IN 2
1) HRROI B,CCLLOD
1) SAIL vs. 2) SAIL[S,AIL] SRCCOM 04-06-74 13:26 PAGES 32,32
1) JSYS GTJFN
1) ERR <Cannot chain to LOADER>,1
1) MOVE B,[XWD 70000,100000]
1) JSYS OPENF
1) ERR <Cannot chain to LOADER>,1
1) SETZ C,
1) HRROI B,TMPCBF
1) JSYS SOUT
1) JSYS CLOSF
1) JFCL
1) >;NOIMSSS
1) PUSH P,[1] ;CCL MODE
*** SAIL[S,AIL] *** PAGE 32
2) MOVE A,[XWD 3,[XWD 'LOA',0
2) IOWD 40,TMPCBF]]
2) CALLI A,44 ;TMPCOR
2) ERR <Cannot do TMPCOR uuo for chain to loader.>,1
2) >;NOIMSSS
2) SETO A,
2) JSYS CLOSF ;CLOSE AND RELEASE ALL JFNS
2) JFCL
2) PUSH P,[1] ;CCL MODE